home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / demos / generic / Demos.lzh / +super 16sprite (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-12-17  |  1.5 KB  |  41 lines
  1. 10 ifg=0theng=1:load"super16 prg",8,1
  2. 20 ifg=1theng=2:load"super16 pic",8,1
  3. 25 gosub950:poke53281,0:poke53280,12:poke829,0:poke53285,1
  4. 26 rempoke53271,255:poke53277,255
  5. 30 print"[150][147][201]n the [158][211][213][208][197][210] 16[211][208][210][201][212][197][211][150] demo,"
  6. 31 print"you can use these features:"
  7. 32 print"[200]old down the [158][195][207][206][212][210][207][204][146][150] key to pause"
  8. 33 print"the sprites.":print"[213]se the [158][195][207][205][205][207][196][207][210][197] [204][207][199][207][146][150] key to cycle"
  9. 34 print"through colour shades (only during"
  10. 35 print"the 'bouncing balls' demo)."
  11. 36 print"[213]se the [158][211][208][193][195][197][194][193][210][146][150] to go on to the next"
  12. 37 print"sprite demo.":print"[208]ress [158] [210][197][212][213][210][206] [146][150] to start the demo!":poke198,0
  13. 38 geta$:ifa$<>chr$(13)then38
  14. 39 print"[151][147][142]"
  15. 40 fora=0to500:next
  16. 45 poke53276,0:sys50208:poke821,11:fora=1to12:poke820,a:sys50320:next
  17. 50 sys50176:sys49152:sys49440:sys49792
  18. 60 sys50176:poke828,0:sys50800:sys50208:poke53276,255:poke53285,1:poke53286,2
  19. 70 sys50824:sys50944:fora=0to15:poke52740+a*8,peek(52740+a*8)and254
  20. 75 poke52741+a*8,peek(52741+a*8)and254:next
  21. 100 poke828,1:sys50800:sys50560:poke828,0:sys50800:goto40
  22. 900 end
  23. 950 fora=0to127:readb:poke896+a,b:next
  24. 960 return
  25. 980 data000,020,000,001,101,064,006,086
  26. 981 data080,005,101,144,022,085,172,025
  27. 982 data166,108,021,154,172,089,109,239
  28. 983 data085,154,190,102,173,239,089,154
  29. 984 data187,102,187,255,094,111,187,026
  30. 985 data174,252,030,239,236,027,190,252
  31. 986 data011,255,240,015,238,240,003,255
  32. 987 data192,000,060,000,000,000,000,000
  33. 988 data127,255,254,191,255,253,223,126
  34. 989 data251,239,189,247,247,195,239,251
  35. 990 data189,223,221,126,187,202,255,083
  36. 991 data247,126,239,239,189,247,239,195
  37. 992 data247,239,189,247,247,126,239,202
  38. 993 data255,083,221,126,187,251,189,223
  39. 994 data247,195,239,239,189,247,223,126
  40. 995 data251,191,255,253,127,255,254,000
  41.